home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_savedefmac.edge < prev    next >
Text File  |  1994-11-17  |  546b  |  23 lines

  1. /*
  2. ** $VER: Menu_SaveDefMac.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Save the default macro to a file
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* check to see if it exists */
  12. if exists('ram:edge.macro') then do
  13.     
  14.     /* where to we want to save the default macro to */
  15.     requestfile title """Save Macro As...""" path """rexx:""" getdir save
  16.  
  17.     /* copy it to there then */
  18.     if rc==0 then address command copy """ram:edge.macro""" result
  19. end
  20.  
  21. /* if not then complain */
  22. else requestnotify """There is no default macro."""
  23.